home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / gfx / conv / XT_Main.lha / XTrace / Install / Install_XTrace < prev   
Text File  |  1996-09-29  |  24KB  |  526 lines
  1. ; $VER: Install 1.10 - Copyright by Condor's, Inc. All Rights Reserved.
  2. ; Script to install XTrace V 1.10
  3.  
  4. ; ============================================================================
  5. ; Variables
  6. ; ============================================================================
  7.  
  8. (SET OSVersion        (/ (getversion) 65536))
  9. (SET TRUE        1)
  10. (SET FALSE        0)
  11. (SET CPU        (database "cpu"))
  12. (SET update        FALSE)
  13. (SET EC_PROCESSOR    1000)
  14.  
  15. ; ============================================================================
  16. ; Strings
  17. ; ============================================================================
  18.  
  19. (IF (= @language "deutsch")
  20.  (
  21.   ; German strings
  22.  
  23.   (SET Msg_Welcome       "Willkommen bei der Installation von XTrace V1.10 !\nCopyright by Ronny Schütz / Condor's, Inc. Leipzig\nAll rights reserved.\n\nSie können jederzeit die Installation abbrechen und alle installierten Teile von XTrace werden gelöscht.\n\nFalls Sie sich entscheiden XTrace zu löschen brauchen Sie nur die XTrace-Schublade entfernen.\n\nDiese Install-Script wurde mit dem Installer V43.3 (aminet:util/misc/Installer-43_3.lha) getestet.")
  24.   (SET Msg_Dir           "Wählen Sie bitte ein Verzeichnis in dem XTrace installiert werden soll. Ein eigenes XTrace Verzeichnis wird angelegt. Es sollten 1300 Kb auf dem Datenträger frei sein.")
  25.   (SET Msg_Proc          "Wählen Sie den/die Prozessor(en) Ihres Amigas®. Ihre Konfiguration bzw. eine lauffähige Konfiguration die als CPU-File vorhanden ist sollte bereits ausgewählt sein.")
  26.   (SET Msg_Guides        "Wählen Sie die Sprache der zu installierenden Dokumentation.")
  27.   (SET Msg_Filters       "Wählen Sie, welche digitalen Filter Sie installieren wollen.")
  28.   (SET Msg_FSeq          "Wählen Sie, welche digitalen Filtersequenzen Sie installieren wollen.")
  29.   (SET Msg_Examples      "\n\n\nWollen Sie die Beispiele installieren ?")
  30.   (SET Msg_Bye           "\n\n\n\nDanke das Sie XTrace installiert/geupdated haben. Vergessen Sie nicht sich registrieren zu lassen !")
  31.   (SET Msg_ByeReg        "\n\n\n\nDanke das Sie XTrace wieder installiert/geupdated haben.")
  32.  
  33.   (SET Msg_Kick          "Tut mir leid, aber XTrace benötigt mindestens AmigaDOS V3.0.")
  34.   (SET Msg_MissCPUVer     "Sie haben kein CPU-LhA-File, in dem das Hauptprogramm enthalten ist, in dieses Directory extrahiert. Bitte holen Sie dies nach und starten Sie das Install-Script erneut.\n\nSiehe auch File 'Documentation/Deutsch/Read_Me_First' oder 'Read_Me_First'.")
  35.   (SET Msg_MissDoc       "Sie haben kein Doc-LhA-File, in dem die Dokumentation enthalten ist, in dieses Directory extrahiert. Bitte holen Sie dies nach und starten Sie das Install-Script erneut.\n\nSiehe auch File 'Read_Me_First'.")
  36.   (SET Msg_VersTooHigh   "Alle aktuell vorhandenen CPU-Versionen von XTrace sind zu hoch für den installierten Prozessor. Bitte besorgen Sie sich eine niedrigere CPU-Version und starten Sie das Install-Script erneut.\n\nSiehe auch File 'Documentation/Deutsch/Read_Me_First' oder 'Read_Me_First'.")
  37.  
  38.   (SET Msg_CopyLibs     "Kopiere Libraries.\nNur neuere Versionen als im LIBS: werden kopiert.")
  39.   (SET Msg_CopyBinary     "Kopiere XTrace Hauptprogramm.")
  40.  
  41.   (SET Msg_LangEng     "Englisch")
  42.   (SET Msg_LangGer     "Deutsch")
  43.   (SET Msg_LangFre     "Französisch")
  44.   (SET Msg_LangDut     "Holländisch")
  45.   (SET Msg_LangSpa     "Spanisch")
  46.   (SET Msg_LangGre     "Griechisch")
  47.   (SET Msg_LangRus     "Russisch")
  48.   (SET Msg_LangIta     "Italienisch")
  49.   (SET Msg_LangCze     "Tschechisch")
  50.   (SET Msg_LangPor     "Portugiesisch")
  51.   (SET Msg_LangSwe     "Schwedisch")
  52.   (SET Msg_LangDan     "Dänisch")
  53.  
  54.   (SET Msg_CLN_Help     "Sie können hier wählen, ob Sie die mitgelieferte Version der Library installieren, oder eine evtl. bereits installierte nutzen wollen. Beachten Sie bitte, daß XTrace ohne die reqtools.library und die xpkmaster.library nicht funktioniert.")
  55.   (SET Msg_CLX_Help     "Sie können hier wählen, ob Sie die mitgelieferte Version der Library installieren, oder eine evtl. bereits installierte nutzen wollen. Beachten Sie bitte, daß zur Nutzung der xpkmaster.library mindestens ein XPK-Kompressor benötigt wird.")
  56.   (SET Msg_Filt_Help     "Hier können Sie die digitalen Filter wählen, die Sie für Benutzung der XTrace-Funktion 'Apply Digital Filter Sequence' mitinstallieren wollen.")
  57.   (SET Msg_FSeq_Help     "Hier können Sie die digitalen Filtersequenzen wählen, die Sie für Benutzung der XTrace-Funktion 'Apply Digital Filter Sequence' mitinstallieren wollen.")
  58.  
  59.   (SET Msg_Yes         "Ja")
  60.   (SET Msg_No         "Nein")
  61.  
  62.   (SET Msg_All         "Alle")
  63.   (SET Msg_Some         "Einige ausgewählte")
  64.   (SET Msg_OnlyNew     "Nur neue")
  65.   (SET Msg_None         "Keine")
  66.  
  67.   (SET Msg_WFilters     " Filter")
  68.   (SET Msg_WFSeq     " Filtersequenzen")
  69.  
  70.   (SET Msg_Abort         "Installation abgebrochen. Wollen Sie die bereits installierten Dateien löschen ?\n\nFalls Sie eine existierende Version von XTrace geupdated haben könnte diese bereits überschrieben worden sein. Installieren Sie sie bitte neu.\n\n")
  71.   (SET Msg_Abort_RYes    "Ja, entfernen")
  72.   (SET Msg_Abort_RNo     "Nein")
  73.  
  74.   (SET Msg_AbortOnly     "Installation abgebrochen.")
  75.  
  76.   (SET Msg_Update        "\nACHTUNG !\n\nSie updaten XTrace !\n\nDas alte XTrace-Hauptprogramm, die Hilfsdatei und all Icons werden überschrieben bzw. gelöscht !!!\n")
  77.   (SET Msg_Update_Abort  "Update abbrechen")
  78.   (SET Msg_Update_Overw  "Überschreiben")
  79.  )
  80.  (
  81.   ; English strings
  82.  
  83.   (SET Msg_Welcome       "Welcome to the installation of XTrace V 1.10 !\nCopyright by Ronny Schütz / Condor's, Inc. Leipzig\nAll rights reserved.\n\nYou can always abort the installation and the installed parts will be safely deleted.\n\nIf you decide to uninstall XTrace, only delete the XTrace drawer.\n\nThis install script was tested with Installer V43.3 (aminet:util/misc/Installer-43_3.lha).")
  84.   (SET Msg_Dir           "Please choose a directory to install XTrace. A own XTrace directory will be created. There should be 1300 Kb free.")
  85.   (SET Msg_Proc          "Choose the processor(s) of your Amiga®. Your configuration resp. a runable configuration available from a CPU file should be already choosen.")
  86.   (SET Msg_Guides        "Choose the language of the documentation to install.")
  87.   (SET Msg_Filters       "Choose the digital filters to install.")
  88.   (SET Msg_FSeq          "Choose the digital filter sequences to install.")
  89.   (SET Msg_Examples      "\n\n\nDo you want to install examples ?")
  90.   (SET Msg_Bye           "\n\n\n\nThank you for installing/updating XTrace. Don't forget to register !")
  91.   (SET Msg_ByeReg        "\n\n\n\nThank you for installing/updating XTrace again.")
  92.  
  93.   (SET Msg_Kick          "Sorry, but XTrace requires AmigaDOS V3.0.")
  94.   (SET Msg_MissCPUVer     "You havn't extract a CPU-LhA-file, which contain the main program, into this directory. Please do this and start the install script again.\n\nSee also file 'Documentation/English/Read_Me_First' or 'Read_Me_First'.")
  95.   (SET Msg_MissDoc       "You havn't extract a Doc-LhA-file, which contain the documentation, into this directory. Please do this and start the install script again.\n\nSee also file 'Read_Me_First'.")
  96.   (SET Msg_VersTooHigh   "All present CPU versions of XTrace are too high for the installed processor. Please get a lower CPU version and start the install script again.\n\nSee also file 'Documentation/English/Read_Me_First' or 'Read_Me_First'.")
  97.  
  98.   (SET Msg_CopyLibs      "Copy libraries.\nOnly newer versions as in LIBS: will be copied.")
  99.   (SET Msg_CopyBinary     "Copy XTrace main program.")
  100.  
  101.   (SET Msg_LangEng     "English")
  102.   (SET Msg_LangGer     "German")
  103.   (SET Msg_LangFre     "French")
  104.   (SET Msg_LangDut     "Dutch")
  105.   (SET Msg_LangSpa     "Spanish")
  106.   (SET Msg_LangGre     "Greek")
  107.   (SET Msg_LangRus     "Russian")
  108.   (SET Msg_LangIta     "Italian")
  109.   (SET Msg_LangCze     "Czech")
  110.   (SET Msg_LangPor     "Portuguese")
  111.   (SET Msg_LangSwe     "Swedish")
  112.   (SET Msg_LangDan     "Danish")
  113.  
  114.   (SET Msg_CLN_Help     "You can choose, if you want to install the included libraries or use the installed ones. But please remember, XTrace won't run without reqtools.library and xpkmaster.library.")
  115.   (SET Msg_CLX_Help     "You can choose, if you want to install the included libraries or use the installed ones. But please remember, for using the xpkmaster.library you need at lease one XPK-compressor.")
  116.   (SET Msg_Filt_Help     "Here you can choose the digital filters to install for using with the XTrace function 'Apply Digital Filter Sequence'.")
  117.   (SET Msg_FSeq_Help     "Here you can choose the digital filter sequences to install for using with the XTrace function 'Apply Digital Filter Sequence'.")
  118.  
  119.   (SET Msg_Yes         "Yes")
  120.   (SET Msg_No         "No")
  121.  
  122.   (SET Msg_All         "All")
  123.   (SET Msg_Some         "Some choosed")
  124.   (SET Msg_OnlyNew     "Only new")
  125.   (SET Msg_None         "No")
  126.  
  127.   (SET Msg_WFilters     " filters")
  128.   (SET Msg_WFSeq     " filter sequences")
  129.  
  130.   (SET Msg_Abort         "Installation aborted. Do you want to delete the files that were installed?\n\nIf you are updating an existing version of XTrace, it may have already been overwritten, so you must reinstall it.\n\n")
  131.   (SET Msg_Abort_RYes    "Yes, remove")
  132.   (SET Msg_Abort_RNo     "No")
  133.  
  134.   (SET Msg_AbortOnly     "Installation aborted.")
  135.  
  136.   (SET Msg_Update        "\nATTENTION !\n\nYou're updating XTrace !\n\nThe old main XTrace binary, the guide and all icons will be overwritten or deleted !!!")
  137.   (SET Msg_Update_Abort  "Abort update")
  138.   (SET Msg_Update_Overw  "Overwrite")
  139.  )
  140. )
  141.  
  142. ; ============================================================================
  143. ; Initialization
  144. ; ============================================================================
  145.  
  146. ; Make sure that we are running under 3.0 or better
  147.  
  148. (IF (< OSVersion 39) (ABORT Msg_Kick))
  149.  
  150. ; Set up error routine
  151.  
  152. (ONERROR
  153.  (IF (EXISTS "XTDest:" (NOREQ))
  154.  (
  155.   (IF (ASKBOOL
  156.    (PROMPT Msg_Abort)
  157.    (HELP @ASKBOOL-HELP)
  158.    (CHOICES Msg_Abort_RYes
  159.             Msg_Abort_RNo)
  160.    (DEFAULT 0))
  161.    (
  162.     (RUN "delete XTDest:(XTrace|XTrace.info) QUIET FORCE ALL")
  163.    )
  164.   )
  165.  
  166.   (MAKEASSIGN "XTSrc"  (SAFE))
  167.   (MAKEASSIGN "XTDest" (SAFE))
  168.  ))
  169. )
  170.  
  171. ; ============================================================================
  172. ; Installation
  173. ; ============================================================================
  174.  
  175. (MESSAGE Msg_Welcome)
  176. (COMPLETE 0)
  177.  
  178. ; cancel the assign in case of installation restart
  179.  
  180. (MAKEASSIGN "XTSrc" (SAFE))
  181. (MAKEASSIGN "XTDest" (SAFE))
  182.  
  183. ; ============================================================================
  184. ; Ask for directory and create
  185. ; ============================================================================
  186.  
  187. (SET XTDest (TACKON (ASKDIR (PROMPT Msg_Dir) (HELP @ASKDIR-HELP) (DEFAULT @default-dest)) "XTrace"))
  188.  
  189. (MAKEASSIGN "XTDest" (PATHONLY XTDest) (SAFE))
  190.  
  191. (IF (EXISTS "XTDest:XTrace") (SET update TRUE) (MAKEDIR "XTDest:XTrace"))
  192.  
  193. (MAKEASSIGN "XTSrc" "/")
  194. (SET @default-dest (EXPANDPATH "XTDest:"))
  195.  
  196. ; ============================================================================
  197. ; Check for update 
  198. ; ============================================================================
  199.  
  200. (IF (= update TRUE)
  201.  (
  202.   IF(ASKBOOL
  203.      (PROMPT Msg_Update)
  204.      (HELP @ASKBOOL-HELP)
  205.      (CHOICES Msg_Update_Overw Msg_Update_Abort)
  206.      (DEFAULT 0))
  207.   (
  208.    ; ===== Delete binary, guides
  209.  
  210.    (RUN "delete XTDest:XTrace/XTrace XTDest:XTrace/XTrace.info XTDest:XTrace/Guides/#? XTDest:XTrace/Icons/#? QUIET FORCE")
  211.   )
  212.   (
  213.    ; ===== Remove assigns
  214.  
  215.    (MAKEASSIGN "XTSrc"  (SAFE))
  216.    (MAKEASSIGN "XTDest" (SAFE))
  217.  
  218.    (EXIT Msg_AbortOnly)
  219.   )
  220.  )
  221. )
  222.  
  223. ; ============================================================================
  224. ; Check copied processor versions
  225. ; ============================================================================
  226.  
  227. (IF (EXISTS ("XTSrc:Bin/XTrace.000"))    (SET CPU0 TRUE) (SET CPU0 FALSE))
  228. (IF (EXISTS ("XTSrc:Bin/XTrace.020"))    (SET CPU1 TRUE) (SET CPU1 FALSE))
  229. (IF (EXISTS ("XTSrc:Bin/XTrace.030"))    (SET CPU2 TRUE) (SET CPU2 FALSE))
  230. (IF (EXISTS ("XTSrc:Bin/XTrace.030882")) (SET CPU3 TRUE) (SET CPU3 FALSE))
  231. (IF (EXISTS ("XTSrc:Bin/XTrace.040"))    (SET CPU4 TRUE) (SET CPU4 FALSE))
  232.  
  233. (SET CPUSum (+ (+ (+ CPU0 CPU1) (+ CPU2 CPU3)) CPU4))
  234.  
  235. ; Abort if no binaries extracted
  236.  
  237. (IF (= CPUSum 0) (ABORT Msg_MissCPUVer))
  238.  
  239. ; ============================================================================
  240. ; Ask for processor 
  241. ; ============================================================================
  242.  
  243. (IF (EXISTS("c:CPU")) (SET FPU (RUN "c:CPU CHECK 68882")) (SET FPU 5))
  244.  
  245. (IF (OR (= CPU "68000") (= CPU "68010")) (SET Processor 0))
  246. (IF (= CPU "68020")                      (SET Processor 1))
  247. (IF (= CPU "68030") (IF (<> FPU 0)       (SET Processor 2) (SET Processor 3)))
  248. (IF (OR (= CPU "68040") (= CPU "68060")) (SET Processor 4))
  249.  
  250. ; Fall back, if installed CPU/FPU version not available
  251.  
  252. (IF (AND (= Processor 4) (= CPU4 FALSE)) (SET Processor            3))
  253. (IF (AND (= Processor 3) (= CPU3 FALSE)) (SET Processor            2))
  254. (IF (AND (= Processor 2) (= CPU2 FALSE)) (SET Processor            1))
  255. (IF (AND (= Processor 1) (= CPU1 FALSE)) (SET Processor            0))
  256. (IF (AND (= Processor 0) (= CPU0 FALSE)) (SET Processor EC_PROCESSOR))
  257.  
  258. ; All installed versions too high ?
  259.  
  260. (IF (= Processor EC_PROCESSOR) (ABORT Msg_VersTooHigh))
  261.  
  262. (IF (= @user-level 2)
  263.  (SET Processor
  264.   (ASKCHOICE
  265.    (PROMPT Msg_Proc)
  266.    (HELP @ASKCHOICE-HELP)
  267.    (CHOICES (IF (= CPU0 TRUE) ("MC 68000")                (""))
  268.             (IF (= CPU1 TRUE) ("MC 68020")                (""))
  269.             (IF (= CPU2 TRUE) ("MC 68030")                (""))
  270.             (IF (= CPU3 TRUE) ("MC 68030 & FPU (M68882)") (""))
  271.         (IF (= CPU4 TRUE) ("MC 68040")                ("")))
  272.    (DEFAULT Processor)
  273.   )
  274.  )
  275. )
  276.  
  277. ; ============================================================================
  278. ; Install main program
  279. ; ============================================================================
  280.  
  281. (COPYFILES (SOURCE (TACKON ("XTSrc:Bin/") (SELECT Processor "XTrace.000" "XTrace.020" "XTrace.030" "XTrace.030882" "XTrace.040")))
  282.            (DEST "XTDest:XTrace/") (NEWNAME "XTrace")
  283. )
  284.  
  285. (COPYFILES (SOURCE "XTSrc:Icons/XTrace.info") (DEST "XTDest:XTrace") (NEWNAME "XTrace.info"))
  286. (COMPLETE 12)
  287.  
  288. ; ============================================================================
  289. ; Check copied guides
  290. ; ============================================================================
  291.  
  292. (IF (EXISTS ("XTSrc:Documentation/English"))    (SET GUI00 TRUE) (SET GUI00 FALSE))
  293. (IF (EXISTS ("XTSrc:Documentation/German"))     (SET GUI01 TRUE) (SET GUI01 FALSE))
  294. (IF (EXISTS ("XTSrc:Documentation/French"))     (SET GUI02 TRUE) (SET GUI02 FALSE))
  295. (IF (EXISTS ("XTSrc:Documentation/Dutch"))      (SET GUI03 TRUE) (SET GUI03 FALSE))
  296. (IF (EXISTS ("XTSrc:Documentation/Spanish"))    (SET GUI04 TRUE) (SET GUI04 FALSE))
  297. (IF (EXISTS ("XTSrc:Documentation/Greek"))      (SET GUI05 TRUE) (SET GUI05 FALSE))
  298. (IF (EXISTS ("XTSrc:Documentation/Russian"))    (SET GUI06 TRUE) (SET GUI06 FALSE))
  299. (IF (EXISTS ("XTSrc:Documentation/Italian"))    (SET GUI07 TRUE) (SET GUI07 FALSE))
  300. (IF (EXISTS ("XTSrc:Documentation/Czech"))      (SET GUI08 TRUE) (SET GUI08 FALSE))
  301. (IF (EXISTS ("XTSrc:Documentation/Portuguese")) (SET GUI09 TRUE) (SET GUI09 FALSE))
  302. (IF (EXISTS ("XTSrc:Documentation/Swedish"))    (SET GUI10 TRUE) (SET GUI10 FALSE))
  303. (IF (EXISTS ("XTSrc:Documentation/Danish"))     (SET GUI11 TRUE) (SET GUI11 FALSE))
  304.  
  305. (SET GUISum (+ (+ (+ (+ GUI00 GUI01) (+ GUI02 GUI03)) (+ (+ GUI04 GUI05) (+ GUI06 GUI07))) (+ (+ GUI08 GUI09) (+ GUI10 GUI11))))
  306.  
  307. ; Abort if no guides extracted
  308.  
  309. (IF (= GUISum 0) (ABORT Msg_MissDoc))
  310.  
  311. ; ============================================================================
  312. ; Choose guide and ReadMe
  313. ; ============================================================================
  314.  
  315. ; Only one guide available ?
  316.  
  317.  
  318. (IF (<> GUISum 1)
  319.  (
  320.   ; Request, which file should be copied
  321.  
  322.   (IF (= @language "english")   (SET Guide  0))
  323.   (IF (= @language "deutsch")   (SET Guide  1))
  324.   (IF (= @language "français")  (SET Guide  2))
  325.   (IF (= @language "español")   (SET Guide  4))
  326.   (IF (= @language "italiano")  (SET Guide  7))
  327.   (IF (= @language "português") (SET Guide  9))
  328.   (IF (= @language "svenska")   (SET Guide 10))
  329.   (IF (= @language "dansk")     (SET Guide 11))
  330.  
  331.   (SET Guide
  332.    (ASKCHOICE
  333.     (PROMPT Msg_Guides)
  334.     (HELP @ASKCHOICE-HELP)
  335.     (CHOICES (IF (= GUI00 TRUE) (Msg_LangEng) (""))
  336.           (IF (= GUI01 TRUE) (Msg_LangGer) (""))
  337.          (IF (= GUI02 TRUE) (Msg_LangFre) (""))
  338.          (IF (= GUI03 TRUE) (Msg_LangDut) (""))
  339.          (IF (= GUI04 TRUE) (Msg_LangSpa) (""))
  340.          (IF (= GUI05 TRUE) (Msg_LangGre) (""))
  341.          (IF (= GUI06 TRUE) (Msg_LangRus) (""))
  342.          (IF (= GUI07 TRUE) (Msg_LangIta) (""))
  343.          (IF (= GUI08 TRUE) (Msg_LangCze) (""))
  344.          (IF (= GUI09 TRUE) (Msg_LangPor) (""))
  345.          (IF (= GUI10 TRUE) (Msg_LangSwe) (""))
  346.          (IF (= GUI11 TRUE) (Msg_LangDan) ("")))
  347.     (DEFAULT Guide)
  348.    )
  349.   )
  350.  )
  351.  (
  352.   ; Set guide
  353.  
  354.   (IF (= GUI00 TRUE) (SET Guide  0))
  355.   (IF (= GUI01 TRUE) (SET Guide  1))
  356.   (IF (= GUI02 TRUE) (SET Guide  2))
  357.   (IF (= GUI03 TRUE) (SET Guide  3))
  358.   (IF (= GUI04 TRUE) (SET Guide  4))
  359.   (IF (= GUI05 TRUE) (SET Guide  5))
  360.   (IF (= GUI06 TRUE) (SET Guide  6))
  361.   (IF (= GUI07 TRUE) (SET Guide  7))
  362.   (IF (= GUI08 TRUE) (SET Guide  8))
  363.   (IF (= GUI09 TRUE) (SET Guide  9))
  364.   (IF (= GUI10 TRUE) (SET Guide 10))
  365.   (IF (= GUI11 TRUE) (SET Guide 11))
  366.  )
  367. )
  368.  
  369. ; ============================================================================
  370. ; Install Guide, Readme and Worldmap
  371. ; ============================================================================
  372.  
  373. (MAKEDIR "XTDest:XTrace/Guides")
  374.  
  375. ; Select documentation drawer
  376.  
  377. (SET GuideDrawer (TACKON ("XTSrc:Documentation/") (SELECT Guide "English" "German" "French" "Dutch" "Spanish" "Greek" "Russian" "Italian" "Czech" "Portuguese" "Swedish" "Danish")))
  378.  
  379. ; Copy guides, readme, worldmap
  380.  
  381. (COPYFILES (SOURCE (TACKON (GuideDrawer) ("XTrace.guide")))  (DEST "XTDest:XTrace/Guides/"))
  382. (COPYFILES (SOURCE "XTSrc:Pictures/Worldmap.iff")            (DEST "XTDest:XTrace/Guides/"))
  383. (COPYFILES (SOURCE (TACKON (GuideDrawer) ("Read_Me_First"))) (DEST "XTDest:XTrace/"))
  384.  
  385. ; Copy appendant icons
  386.  
  387. (COPYFILES (SOURCE "XTSrc:Icons/Drawer_Guides.info") (DEST "XTDest:XTrace")         (NEWNAME "Guides.info"))
  388. (COPYFILES (SOURCE "XTSrc:Icons/XTrace.guide.info")  (DEST "XTDest:XTrace/Guides"))
  389. (COPYFILES (SOURCE "XTSrc:Icons/Worldmap.iff.info")  (DEST "XTDest:XTrace/Guides"))
  390. (COPYFILES (SOURCE "XTSrc:Icons/Read_Me_First.info") (DEST "XTDest:XTrace/"))
  391.  
  392. (COMPLETE 25)
  393.  
  394. ; ============================================================================
  395. ; Install filters
  396. ; ============================================================================
  397.  
  398. (SET CopySrcDir  "XTSrc:Filters")
  399. (SET CopyDestDir "XTDest:XTrace/Filters")
  400. (SET CopyPattern "#?.fltr")
  401. (MAKEDIR CopyDestDir)
  402.  
  403. (IF (= update TRUE) (SET Filters 2) (SET Filters 0))
  404.  
  405. (IF (= @user-level 2)
  406.  (SET Filters
  407.   (ASKCHOICE
  408.    (PROMPT Msg_Filters)
  409.    (HELP Msg_Filt_Help)
  410.    (CHOICES (CAT Msg_All     Msg_WFilters)
  411.             (CAT Msg_Some    Msg_WFilters)
  412.         (CAT Msg_OnlyNew Msg_WFilters)
  413.         (CAT Msg_None    Msg_WFilters))
  414.    (DEFAULT Filters)
  415.   )
  416.  )
  417. )
  418.  
  419. (IF (= Filters 0) ((COPYFILES (SOURCE CopySrcDir) (DEST CopyDestDir) (PATTERN CopyPattern))))
  420. (IF (= Filters 1) ((COPYFILES (SOURCE CopySrcDir) (DEST CopyDestDir) (PATTERN CopyPattern) (CONFIRM) (PROMPT @each-name) (HELP Msg_Filt_Help))))
  421. (IF (= Filters 2) (FOREACH CopySrcDir CopyPattern (IF (NOT (EXISTS (TACKON (CopyDestDir) (@each-name)))) (COPYFILES (SOURCE (TACKON (CopySrcDir) (@each-name))) (DEST CopyDestDir)))))
  422.  
  423. (COMPLETE 37)
  424.  
  425. ; ============================================================================
  426. ; Install filter sequences
  427. ; ============================================================================
  428.  
  429. (COMPLETE 50)
  430. (SET CopySrcDir  "XTSrc:FilterSequences")
  431. (SET CopyDestDir "XTDest:XTrace/FilterSequences")
  432. (SET CopyPattern "#?.fseq")
  433. (MAKEDIR CopyDestDir)
  434.  
  435. (IF (= update TRUE) (SET FilterSeq 2) (SET FilterSeq 0))
  436.  
  437. (IF (= @user-level 2)
  438.  (SET FilterSeq
  439.   (ASKCHOICE
  440.    (PROMPT Msg_FSeq)
  441.    (HELP Msg_FSeq_Help)
  442.    (CHOICES (CAT Msg_All     Msg_WFSeq)
  443.             (CAT Msg_Some    Msg_WFSeq)
  444.         (CAT Msg_OnlyNew Msg_WFSeq)
  445.         (CAT Msg_None    Msg_WFSeq))
  446.    (DEFAULT FilterSeq)
  447.   )
  448.  )
  449. )
  450.  
  451. (IF (= FilterSeq 0) ((COPYFILES (SOURCE CopySrcDir) (DEST CopyDestDir) (PATTERN CopyPattern))))
  452. (IF (= FilterSeq 1) ((COPYFILES (SOURCE CopySrcDir) (DEST CopyDestDir) (PATTERN CopyPattern) (CONFIRM) (PROMPT @each-name) (HELP Msg_Filt_Help))))
  453. (IF (= FilterSeq 2) (FOREACH CopySrcDir CopyPattern (IF (NOT (EXISTS (TACKON (CopyDestDir) (@each-name)))) (COPYFILES (SOURCE (TACKON (CopySrcDir) (@each-name))) (DEST CopyDestDir)))))
  454.  
  455. (COMPLETE 50)
  456.  
  457. ; ============================================================================
  458. ; Install examples
  459. ; ============================================================================
  460.  
  461. (IF 
  462.  (ASKBOOL (PROMPT Msg_Examples)
  463.       (HELP @ASKBOOL-HELP)
  464.       (DEFAULT 1))
  465.  (
  466.   (COPYFILES (SOURCE "XTSrc:Examples/") (DEST "XTDest:XTrace") (ALL))
  467.   (COPYFILES (SOURCE "XTSrc:Icons/Drawer_EPSB.info")    (DEST "XTDest:XTrace") (NEWNAME "EPSB.info"))
  468.   (COPYFILES (SOURCE "XTSrc:Icons/Drawer_IFFILBM.info") (DEST "XTDest:XTrace") (NEWNAME "IFFILBM.info"))
  469.   (COPYFILES (SOURCE "XTSrc:Icons/Drawer_IFFDR2D.info") (DEST "XTDest:XTrace") (NEWNAME "IFFDR2D.info"))
  470.  
  471.   (TOOLTYPE (DEST "XTDest:XTrace/IFFILBM/Intel_Outside.ILBM") (SETDEFAULTTOOL (EXPANDPATH "XTDest:XTrace/XTrace"))) 
  472.  
  473.   (COPYFILES (SOURCE "XTSrc:Icons/Drawer_XTrace_1.info") (DEST "XTDest:") (NEWNAME "XTrace.info"))
  474.  )
  475.  (
  476.   (COPYFILES (SOURCE "XTSrc:Icons/Drawer_XTrace_2.info") (DEST "XTDest:") (NEWNAME "XTrace.info"))
  477.  )
  478. )
  479.  
  480. ; Fit drawer icon
  481.  
  482. (TOOLTYPE (DEST "XTDest:XTrace") (NOPOSITION))
  483. (COMPLETE 62)
  484.  
  485. ; ============================================================================
  486. ; Install icons
  487. ; ============================================================================
  488.  
  489. (MAKEDIR "XTDest:XTrace/Icons")
  490. (COPYFILES (SOURCE "XTSrc:Icons/") (DEST "XTDest:XTrace/Icons/") (PATTERN "defxt_#?.info"))
  491.  
  492. ; Text files
  493.  
  494. (COPYFILES (SOURCE "XTSrc:RegisterForm")            (DEST "XTDest:XTrace/"))
  495. (COPYFILES (SOURCE "XTSrc:Icons/RegisterForm.info") (DEST "XTDest:XTrace/"))
  496.  
  497. (COMPLETE 75)
  498.  
  499. ; ============================================================================
  500. ; Copy libs
  501. ; ============================================================================
  502.  
  503. (WORKING Msg_CopyLibs)
  504.  
  505. (MAKEDIR "LIBS:Compressors")
  506. (COPYLIB (SOURCE "XTSrc:Libs/reqtools.library")            (DEST "Libs:")             (CONFIRM) (PROMPT "reqtools.library")  (OPTIONAL AskUser) (HELP Msg_CLN_Help))
  507. (COPYLIB (SOURCE "XTSrc:Libs/xpkmaster.library")           (DEST "Libs:")          (CONFIRM) (PROMPT "xpkmaster.library") (OPTIONAL AskUser) (HELP Msg_CLN_Help))
  508. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkSHRI.library") (DEST "Libs:Compressors/") (CONFIRM) (PROMPT "xpkSHRI.library")   (OPTIONAL AskUser) (HELP Msg_CLX_Help)) 
  509. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkNUKE.library") (DEST "Libs:Compressors/") (CONFIRM) (PROMPT "xpkNUKE.library")   (OPTIONAL AskUser) (HELP Msg_CLX_Help))
  510. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkIMPL.library") (DEST "Libs:Compressors/") (CONFIRM) (PROMPT "xpkIMPL.library")   (OPTIONAL AskUser) (HELP Msg_CLX_Help))
  511. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkHUFF.library") (DEST "Libs:Compressors/") (CONFIRM) (PROMPT "xpkHUFF.library")   (OPTIONAL AskUser) (HELP Msg_CLX_Help))
  512. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkBLZW.library") (DEST "Libs:Compressors/") (CONFIRM) (PROMPT "xpkBLZW.library")   (OPTIONAL AskUser) (HELP Msg_CLX_Help))
  513.  
  514. (COMPLETE 87)
  515.  
  516. ; ============================================================================
  517. ; Cleanup & End
  518. ; ============================================================================
  519.  
  520. (COMPLETE 100)
  521.  
  522. (MAKEASSIGN "XTSrc"  (SAFE))
  523. (MAKEASSIGN "XTDest" (SAFE))
  524.  
  525. (IF (EXISTS "DEVS:KeyFiles/XTrace.key") (EXIT Msg_ByeReg) (EXIT Msg_Bye))
  526.